home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs05.d81 / guitar.prg (.txt) < prev    next >
Commodore BASIC  |  2009-10-10  |  6KB  |  164 lines
  1. 1 REM ********** THE FRET **********
  2. 2 PRINT"[147]":GOSUB60000
  3. 3 REM ***** SET UP SCREEN ******
  4. 4 INPUT"JOYSTICK (Y/N)Y[157][157][157]";J$:IFJ$="Y"THENJ=1
  5. 5 IFJ$="N"THENJ=0
  6. 6 PRINT"[147]":POKE53280,6:POKE53281,0:POKE646,12
  7. 8 PRINT"[129]                                        "
  8. 9 PRINT"[129]                        "
  9. 10 PRINT"[145]                                        [146]";
  10. 11 FORX=1TO9:PRINT"                                        [146]";
  11. 12 NEXT
  12. 13 PRINT"         THE FINGERBOARD TRAINER        "
  13. 14 POKE646,7
  14. 15 PRINT"[185] [185] [185]                        [154]   1 1 1[158][170][183]";
  15. 16 PRINT" [194] [194] [194][154]  1  2  3  4  5  6  7  8 9 0 1 2[158][170]"
  16. 17 PRINT"[183][183][183][183][183][205][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]"
  17. 18 PRINT" 1) E[170][195][195][219][195][195][219][195][195][219][195][195][219][195][195][219][195][195][219][195][195][219][195][195][219][195][219][195][219][195][219][195][219][195]"
  18. 19 PRINT" 2) B[170][195][195][219][195][195][219][195][195][219][195][195][219][195][195][219][195][195][219][195][195][219][195][195][219][195][219][195][219][195][219][195][219][195]"
  19. 20 PRINT" 3) G[170][195][195][219][195][195][219][195][195][219][195][195][219][195][195][219][195][195][219][195][195][219][195][195][219][195][219][195][219][195][219][195][219][195]"
  20. 21 PRINT" 4) D[170][195][195][219][195][195][219][195][195][219][195][195][219][195][195][219][195][195][219][195][195][219][195][195][219][195][219][195][219][195][219][195][219][195]"
  21. 22 PRINT" 5) A[170][195][195][219][195][195][219][195][195][219][195][195][219][195][195][219][195][195][219][195][195][219][195][195][219][195][219][195][219][195][219][195][219][195]"
  22. 23 PRINT" 6) E[170][195][195][219][195][195][219][195][195][219][195][195][219][195][195][219][195][195][219][195][195][219][195][195][219][195][219][195][219][195][219][195][219][195]"
  23. 24 PRINT"[175][175][175][175][175][206][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]"
  24. 25 PRINT"[194] [194] [194]                                [170]"
  25. 26 PRINT"[184] [184] [184]                                [170][175]"
  26. 27 PRINT"[214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214]"
  27. 28 IFJ=1THENGOTO60100
  28. 29 REM ****** GET INPUT ********
  29. 33 PRINT" ENTER STRING # 0 TO QUIT"
  30. 34 PRINT"                                        "
  31. 35 INPUT"[159]ENTER FRET # ";KP$
  32. 36 IFKP$=""THEN35
  33. 37 FR=VAL(KP$):IFFR<0ORFR>12THEN59000
  34. 38 IFASC(KP$)>64THEN59000
  35. 40 INPUT"[159]ENTER STRING  # ";KC$:IFVAL(KC$)<0ORVAL(KC$)>6THEN59100
  36. 45 L=0:L=L+VAL(KC$)
  37. 46 IFL=1THENDD=0
  38. 47 IFL=2THENDD=13
  39. 48 IFL=3THENDD=26
  40. 49 IFL=4THENDD=39
  41. 50 IFL=5THENDD=52
  42. 55 IFL=6THENDD=65
  43. 56 IFL=0THEN63550
  44. 60 IFL<0ORL>6THEN59100
  45. 65 REM ******** GET LOCATION ********
  46. 70 HC=49230:LC=49152:LO=49308
  47. 75 LK=LO+(DD+FR):XY=PEEK(LK):YX=XY+1664
  48. 80 POKEYX,81
  49. 85 CL=XY+55936:POKECL,1
  50. 87 REM ** READ LOBYTE & HIBYTE **
  51. 88 REM ********FOR NOTE**********
  52. 89 HC=49230:LC=49152:LO=49308:GOSUB63546
  53. 90 BL=DD+FR:JL=LC+BL:HB=PEEK(JL)
  54. 95 BH=BL+HC:LB=PEEK(BH)
  55. 140 FORLS=54272TO54296:POKELS,0:NEXT:POKE54296,15
  56. 145 POKE54277,0:POKE54278,128:REM*ADSR
  57. 150 POKE54284,0:POKE54285,128:REM*ADSR
  58. 155 POKE54273,LB:POKE54280,LB
  59. 160 POKE54272,HB:POKE54279,HB
  60. 165 POKE54282,15:POKE54281,1
  61. 170 POKE54276,33:POKE54283,65:REM*WFRM
  62. 175 FORDR=1TO2000:NEXT
  63. 180 IFUU=1ANDJ=1THENPRINT"                         ":RETURN
  64. 181 FORX=54272TO54296:POKEX,0:NEXT:POKEYX,67:POKECL,7
  65. 182 PRINT"                         "
  66. 184 OK=67:IFFR>0THENPOKEYX,OK:POKECL,7
  67. 185 IFFR=0ANDL=1THENPOKEYX,5
  68. 186 IFFR=0ANDL=2THENPOKEYX,2
  69. 187 IFFR=0ANDL=3THENPOKEYX,7
  70. 188 IFFR=0ANDL=4THENPOKEYX,4
  71. 189 IFFR=0ANDL=5THENPOKEYX,1
  72. 190 IFFR=0ANDL=6THENPOKEYX,5
  73. 191 POKECL,7
  74. 195 REM* ***** CLEAR SCREEN ******
  75. 59000 PRINT"                                       ":GOTO35
  76. 59100 PRINT"                                       ":GOTO40
  77. 59999 REM ******* DATA **********
  78. 60000 PRINT"            PLEASE WAIT !"
  79. 60001 FORI=49152TO49463:READA:POKEI,A:NEXTI:RETURN
  80. 60002 DATA31,96,181,30,156,49,223,165,135,134,162,223,62
  81. 60003 DATA210,195,195,209,239,31,96,181,30,156,49,223,165
  82. 60004 DATA143,78,24,239,210,195,195,209,239,31,96,181,30
  83. 60005 DATA104,247,143,48,218,143,78,24,239,210,195,195,209
  84. 60006 DATA12,119,233,97,225,104,247,143,48,218,143,78,24
  85. 60007 DATA71,152,237,71,167,12,119,233,97,225,104,247,143
  86. 60008 DATA21,22,23,25,26,28,29,31,33,35,37,39,42
  87. 60009 DATA15,16,17,18,19,21,22,23,25,26,28,29,31
  88. 60010 DATA12,13,14,14,15,16,17,18,19,21,22,23,25
  89. 60011 DATA9,9,10,11,11,12,13,14,14,15,16,17,18
  90. 60012 DATA7,7,7,8,8,9,9,10,11,11,12,13,14
  91. 60013 DATA5,5,5,6,6,7,7,7,8,8,9,9,10
  92. 60014 DATA4,7,10,13,16,19,22,25,28,30,32,34,36
  93. 60015 DATA44,47,50,53,56,59,62,65,68,70,72,74,76
  94. 60016 DATA84,87,90,93,96,99,102,105,108,110,112,114,116
  95. 60017 DATA124,127,130,133,136,139,142,145,148,150,152,154,156
  96. 60018 DATA164,167,170,173,176,179,182,185,188,190,192,194,196
  97. 60019 DATA204,207,210,213,216,219,222,225,228,230,232,234,236
  98. 60020 DATA69,70,140,71,142,65,130,66,134,67,68,136,69
  99. 60021 DATA66,67,134,68,136,69,70,140,71,142,65,130,66
  100. 60022 DATA71,142,65,130,66,67,134,68,136,69,70,142,71
  101. 60023 DATA68,136,69,70,140,71,142,65,130,66,67,134,68
  102. 60024 DATA65,130,66,67,134,68,136,69,70,140,71,142,65
  103. 60025 DATA69,70,140,71,142,65,130,66,67,134,68,136,69
  104. 60100 PRINT"              PLEASE WAIT              "
  105. 60108 PRINT" PRESS ANY KEY TO QUIT"
  106. 60109 PRINT"   UP,DOWN,RIGHT OR LEFT TO SELECT NOTE "
  107. 60110 PRINT"    PRESS FIRE BUTTON TO ENTER NOTE     "
  108. 60150 FORFD=896TO958:POKEFD,0:NEXTFD: FORZZ=896TO958:READSD:POKEZZ,SD:NEXTZZ
  109. 60151 HP=48:VP=171
  110. 60175 POKE2040,14:VIC=53248
  111. 60210 POKEVIC,HP:REM HOR POS
  112. 60225 POKEVIC+1,VP:REM VERT POS
  113. 60250 POKEVIC+39,1:REM CLOR WHITE
  114. 60275 POKEVIC+21,1:REM SPR.#0 ON
  115. 60500 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  116. 60510 DATA0,255,0,0,255,0,0,255,0,0,255,0,0,255,0,0,255,0,0,255,0,0,255
  117. 60520 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  118. 60530 JV=PEEK(56320):FA=JVAND16:JV=15-(JVAND15)
  119. 60544 IF PEEK(198)>0THEN63550
  120. 60545 IFFA<>16THENGOTO63000
  121. 60550 IFJV=1THENVP=VP-8:REM UP
  122. 60560 IFJV=2THENVP=VP+8:REM DOWN
  123. 60570 IFJV=4ANDHP>242THENHP=HP-16:GOTO60580
  124. 60571 IFJV=4ANDHP<=242THENHP=HP-24:REM LEFT
  125. 60580 IFJV=8ANDHP>231THENHP=HP+16:GOTO60584
  126. 60581 IFJV=8THENHP=HP+24:REM RIGHT
  127. 60584 IFHP<48THENHP=48
  128. 60587 IFVP<171THENVP=171
  129. 60588 IFVP>211THENVP=211
  130. 60589 IFHP>304THENHP=304
  131. 60590 IFHP<255THEN:POKEVIC+16,0:GOTO60175
  132. 60620 POKEVIC+16,1:HP=HP-255:POKEVIC,HP:HP=HP+255
  133. 60630 POKEVIC+1,VP:GOTO60530
  134. 63000 IFL=1ORVP=171THENDD=0
  135. 63510 IFL=2ORVP=179THENDD=13
  136. 63515 IFL=3ORVP=187THENDD=26
  137. 63520 IFL=4ORVP=195THENDD=39
  138. 63521 IFL=5ORVP=203THENDD=52
  139. 63522 IFL=6ORVP=211THENDD=65
  140. 63530 IFJ=0THEN63546
  141. 63531 IFHP=48THENFR=0
  142. 63532 IFHP=72THENFR=1
  143. 63533 IFHP=96THENFR=2
  144. 63534 IFHP=120THENFR=3
  145. 63535 IFHP=144THENFR=4
  146. 63536 IFHP=168THENFR=5
  147. 63537 IFHP=192THENFR=6
  148. 63538 IFHP=216THENFR=7
  149. 63539 IFHP=240THENFR=8
  150. 63540 IFHP=256THENFR=9
  151. 63541 IFHP=272THENFR=10
  152. 63542 IFHP=288THENFR=11
  153. 63543 IFHP=304THENFR=12
  154. 63544 UU=1:GOSUB89:UU=0
  155. 63545 FORLS=54272TO54296:POKELS,0:NEXT:GOTO60530
  156. 63546 DP=DD+FR:NO=PEEK(49386+DP):IFNO>71THENNO=NO/2:GOTO63548
  157. 63547 PRINT"THIS NOTE IS ";CHR$(NO):RETURN
  158. 63548 PRINT"THIS NOTE IS ";CHR$(NO);" SHARP":RETURN
  159. 63550 PRINT" ARE YOU SURE YOU WANT TO QUIT Y/N "
  160. 63551 GET KP$
  161. 63552 IFKP$="Y"THENPRINT"[147]":POKEVIC+21,0:END
  162. 63553 IFKP$="N"ANDJ=0THENPOKEVIC+21,0:GOTO6
  163. 63554 GOTO63551
  164.